#!/usr/local/bin/perl

$~ = "MYFORMAT";
write;

format MYFORMAT =
===================================
Here is the text I want to display.
===================================
.

open(F,"quote");
@quotation = <F>;
close(F);
$quotation = join("", @quotation);
$~ = "QUOTATIONS";
write;

format QUOTATION =
Quotation for the day:
-----------------------------
  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<!
$quotation
  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<!
$quotation
  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<!
$quotation
-----------------------------
.

format QUOTATIONS =
Quotation for the day:
-----------------------------
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$quotation
-----------------------------
.